This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

usethis::edit_r_environ()

<U+25CF> Modify 'C:/Users/Qiao/Documents/.Renviron'
<U+25CF> Restart R for changes to take effect
ct_flow_island <- read_excel("C:/Users/Qiao/Desktop/ct_flow_island.xlsx")
load("Data/Island_ct.Rdata")
head(MonIsland_CT)

Flow

Route

betweenness

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpUaGlzIGlzIGFuIFtSIE1hcmtkb3duXShodHRwOi8vcm1hcmtkb3duLnJzdHVkaW8uY29tKSBOb3RlYm9vay4gV2hlbiB5b3UgZXhlY3V0ZSBjb2RlIHdpdGhpbiB0aGUgbm90ZWJvb2ssIHRoZSByZXN1bHRzIGFwcGVhciBiZW5lYXRoIHRoZSBjb2RlLiANCg0KVHJ5IGV4ZWN1dGluZyB0aGlzIGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqUnVuKiBidXR0b24gd2l0aGluIHRoZSBjaHVuayBvciBieSBwbGFjaW5nIHlvdXIgY3Vyc29yIGluc2lkZSBpdCBhbmQgcHJlc3NpbmcgKkN0cmwrU2hpZnQrRW50ZXIqLiANCg0KYGBge3J9DQpsaWJyYXJ5KG5ldHdvcmtEMykNCmxpYnJhcnkoc2YpICAgICAgICAgICMgY2xhc3NlcyBhbmQgZnVuY3Rpb25zIGZvciB2ZWN0b3IgZGF0YQ0KbGlicmFyeShyYXN0ZXIpICAgICAgIyBjbGFzc2VzIGFuZCBmdW5jdGlvbnMgZm9yIHJhc3RlciBkYXRhDQpsaWJyYXJ5KHNwRGF0YSkgICAgICAgICMgbG9hZCBnZW9ncmFwaGljIGRhdGENCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KHN0cmluZ3IpICMgZm9yIHdvcmtpbmcgd2l0aCBzdHJpbmdzIChwYXR0ZXJuIG1hdGNoaW5nKQ0KbGlicmFyeShzcERhdGFMYXJnZSkgICAjIGxvYWQgbGFyZ2VyIGdlb2dyYXBoaWMgZGF0YQ0KbGlicmFyeShzdHBsYW5yKSAgICAgICMgZ2VvZ3JhcGhpYyB0cmFuc3BvcnQgZGF0YSBwYWNrYWdlDQpsaWJyYXJ5KHRtYXApIA0KbGlicmFyeShzcERhdGEpICAgICAgICAjIGxvYWQgZ2VvZ3JhcGhpYyBkYXRhDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShzdHJpbmdyKSAjIGZvciB3b3JraW5nIHdpdGggc3RyaW5ncyAocGF0dGVybiBtYXRjaGluZykNCmxpYnJhcnkoc3BEYXRhTGFyZ2UpICAgIyBsb2FkIGxhcmdlciBnZW9ncmFwaGljIGRhdGENCmxpYnJhcnkoc3RwbGFucikgICAgICAjIGdlb2dyYXBoaWMgdHJhbnNwb3J0IGRhdGEgcGFja2FnZQ0KbGlicmFyeSh0bWFwKQ0KbGlicmFyeShtYXB2aWV3KQ0KbGlicmFyeShyZWFkeGwpDQoNClN5cy5zZXRlbnYoQ1lDTEVTVFJFRVQgPSAiNGY4ODg4ZjljOTlmNDM4YiIpDQpgYGANCg0KYGBge3J9DQpjdF9mbG93X2lzbGFuZCA8LSByZWFkX2V4Y2VsKCJDOi9Vc2Vycy9RaWFvL0Rlc2t0b3AvY3RfZmxvd19pc2xhbmQueGxzeCIpDQpsb2FkKCJEYXRhL0lzbGFuZF9jdC5SZGF0YSIpDQpoZWFkKE1vbklzbGFuZF9DVCkNCmBgYA0KDQpgYGB7cn0NCnpvbmVzX29yaWdpbj0gY3RfZmxvd19pc2xhbmQgJT4lDQogIGdyb3VwX2J5KE9yaWdpbikgJT4lDQogIHN1bW1hcml6ZV9pZihpcy5udW1lcmljLHN1bSkgJT4lDQogIGRwbHlyOjpyZW5hbWUoQ1RVSUQgPSBPcmlnaW4sIFRvdF9PcmkgPSBUb3RhbCkNCg0Kem9uZXNfZGVzdD0gY3RfZmxvd19pc2xhbmQgJT4lDQogIGdyb3VwX2J5KERlc3RpbmF0aW9uKSAlPiUNCiAgc3VtbWFyaXplX2lmKGlzLm51bWVyaWMsc3VtKSAlPiUNCiAgZHBseXI6OnJlbmFtZShDVFVJRCA9IERlc3RpbmF0aW9uLCBUb3RfRGVzID0gVG90YWwpDQoNCk1vbklzbGFuZF9DVEBkYXRhID0gbGVmdF9qb2luKE1vbklzbGFuZF9DVEBkYXRhLHpvbmVzX29yaWdpbiwgYnkgPSAiQ1RVSUQiKQ0KTW9uSXNsYW5kX0NUQGRhdGEgPSBsZWZ0X2pvaW4oTW9uSXNsYW5kX0NUQGRhdGEsIHpvbmVzX2Rlc3QsIGJ5ID0gIkNUVUlEIikNCg0KSXNsYW5kIDwtIHN0X2FzX3NmKE1vbklzbGFuZF9DVCkNCg0KdG1hcF9tb2RlKCJ2aWV3IikgI3Bsb3QNCnRtX3NoYXBlKElzbGFuZCkrDQogIHRtX3BvbHlnb25zKCJUb3RfT3JpIixzdHlsZSA9ICJxdWFudGlsZSIsIG4gPSA1LGFscGhhID0gMC43KQ0KDQptYXB2aWV3KElzbGFuZCwgemNvbD0oIlRvdF9PcmkiKSkNCmBgYA0KI0Zsb3cNCmBgYHtyfQ0Kem9uZXNfaW50cmEgPSBmaWx0ZXIoY3RfZmxvd19pc2xhbmQsIE9yaWdpbiA9PSBEZXN0aW5hdGlvbikNCnpvbmVzX2ludGVyID0gZmlsdGVyKGN0X2Zsb3dfaXNsYW5kLCBPcmlnaW4gIT0gRGVzdGluYXRpb24pDQoNCmRlc2lyZV9saW5lcyA9IG9kMmxpbmUoem9uZXNfaW50ZXIsIElzbGFuZCkNCg0KT3JpX3NwZWNpZmllZCA8LSBkZXNpcmVfbGluZXNbZGVzaXJlX2xpbmVzJE9yaWdpbiA9PSAiNDYyMDAwMS4wMCIsXQ0KI29kX3RvcDEwMCA9IGRlc2lyZV9saW5lcyAlPiUgDQogICNhcnJhbmdlKGRlc2MoVG90YWwpKSAlPiUgDQogICN0b3BfbigxMDAsIHd0ID0gVG90YWwpDQoNCm1hcHZpZXcoSXNsYW5kLG1hcC50eXBlcyA9ICJPcGVuU3RyZWV0TWFwIixhbHBoYS5yZWdpb25zID0gMC41LCBhcGxoYSA9IDEsbGF5ZXIubmFtZSA9ICJDZW5zdXMgVHJhY3QiLCBjb2wucmVnaW9ucyA9ICJncmV5IikrDQogIG1hcHZpZXcoT3JpX3NwZWNpZmllZCxtYXAudHlwZXMgPSAiT3BlblN0cmVldE1hcCIsIHpjb2w9KCJUb3RhbCIpLCBsYXllci5uYW1lID0gIkNvbW11dGluZyBUcmlwIiwgY29sb3IgPSB2aXJpZGlzTGl0ZTo6cGxhc21hKQ0KYGBgDQoNCg0KI1JvdXRlDQpgYGB7cn0NCmRlc2lyZV9saW5lcyRkaXN0YW5jZSA9IGFzLm51bWVyaWMoc3RfbGVuZ3RoKGRlc2lyZV9saW5lcykpDQoNCmRlc2lyZWxpbmVzLmdjcyA8LSBzdF90cmFuc2Zvcm0oZGVzaXJlX2xpbmVzLCAiK3Byb2o9bG9uZ2xhdCArZGF0dW09V0dTODQiKSAjdHJhbnNwb3J0IGNvb3JkaW5hdGUgc3lzdGVtDQoNCmRlc2lyZV9jYXJzaG9ydDIgPSBkcGx5cjo6ZmlsdGVyKGRlc2lyZWxpbmVzLmdjcywgQ2FyPiAxMDAgJiBkaXN0YW5jZSA8IDUwMDApDQpyb3V0ZV9jYXJzaG9ydCA9IGxpbmUycm91dGUoZGVzaXJlX2NhcnNob3J0LCByb3V0ZV9vc3JtKQ0KY3ljbGluZ19jYXJzaG9ydCA9IGxpbmUycm91dGUoZGVzaXJlX2NhcnNob3J0Miwgcm91dGVfY3ljbGVzdHJlZXQpDQpjeWNsaW5nX2NhcnNob3J0MiA9IGN5Y2xpbmdfY2Fyc2hvcnRbaXMubmEoY3ljbGluZ19jYXJzaG9ydCRlcnJvciksXQ0KDQpkZXNpcmVfY2Fyc2hvcnQkZ2VvbV9jYXIgPSBzdF9nZW9tZXRyeShyb3V0ZV9jYXJzaG9ydCkNCmRlc2lyZV9jYXJzaG9ydDIkZ2VvbV9jeWNsZSA9IHN0X2dlb21ldHJ5KGN5Y2xpbmdfY2Fyc2hvcnQpDQpuZXcgPC0gZGVzaXJlX2NhcnNob3J0WywtOV0NCg0KbWFwdmlldyhjeWNsaW5nX2NhcnNob3J0Mix6b2w9KCJ0aW1lIiksbWFwLnR5cGVzID0gIk9wZW5TdHJlZXRNYXAiKQ0KYGBgDQoNCiNiZXR3ZWVubmVzcw0KYGBge3J9DQpjYXJvdXRlX2xuID0gU3BhdGlhbExpbmVzTmV0d29yayhyb3V0ZV9jYXJzaG9ydCkNCmVkZ2UgPSBpZ3JhcGg6OmVkZ2VfYmV0d2Vlbm5lc3MoY2Fyb3V0ZV9sbkBnKQ0KcGxvdChjYXJvdXRlX2xuQHNsJGdlb21ldHJ5LCBsd2QgPSBlZGdlIC8gMjApDQoNCm1hcHZpZXcoY2Fyb3V0ZV9sbkBzbCRnZW9tZXRyeSxsd2Q9ZWRnZSAvIDIwLG1hcC50eXBlcyA9ICJPcGVuU3RyZWV0TWFwIikNCg0KDQpgYGANCg0K